1 T$="NO NAME":PRINT"[147]FILE NAME":INPUTT$:T$=LEFT$(T$,14)
2 N=INT(FRE(0)/20):P=1:X=(N+1)/10:DIMS$(N):POKE36879,185:R$=" LINE#":GOSUB81
3 F$=CHR$(15):G$=CHR$(8):GOTO8
4 K=0
5 Q=0:PRINT"[147][144]CATALOG: ";T$:PRINT"PAGE
6 [129]J[178]K[164]N:[139][198](S$(J))[178]18[167][153]"CMD"[181](J[173]10[170]1);S$(J):Q[178]Q[170]1:[139]Q[177]10[167]8
7 [130]J
8 [141]26:[139]A[178]0[167]8
9 [145]A[137]4,12,19,22,29,36,41,67,47,52,31
10 [139]J[179]N[170]1[167]K[178]J:[137]5
11 [137]4
12 [153]"PAGE#":[133]A$:P[178][197](A$):[141]27:[139]A[179][177]0[167]9
13 [139]P[179]1[176]P[177]X[167][153]"ONONON":[137]12
14 [153]"LOADPAGE"P;T$:[129]I[178]0[164]9:L[178](P[171]1)[172]10[170]I:[153]"CMD"L;S$(L):[130]
15 [141]26:[139]A[178]0[167]15
16 [139]A[179][177]12[167]9
17 P[178]P[170]1:[139]P[177]X[167]P[178]1
18 [137]14
19 A$[178]"-1":[153]"ENTER"R$:[133]A$:J[178][197](A$):[141]27:[139]A[179][177]0[167]9
20 [139]J[179]0[176]J[177][181](X)[172]10[170]1[167][153]"ONONONONON":[137]19
21 [133]S$(J):[137]116
22 A$[178]"-1":[153]"INSERT"R$:[133]A$:J[178][197](A$):[141]27:[139]A[179][177]0[167]9
23 [139]J[179]0[176]J[177][181](X)[172]10[170]1[167][153]"ONONONONON":[137]22
24 [153]"ENTRY":[133]D$:[153]"INSERTING":[139]R[178]N[167]14
25 [141]86:[129]I[178]KK[164]J[170]1[169][171]1:S$(I)[178]S$(I[171]1):[130]:S$(J)[178]D$:[137]116
26 E$[178]"C,P,E,I,N,S,L,H,K,A,?WAIT ":[153]""E$"CMDONON":[141]63
27 A[178]0:[129]I[178]1[164]13:[139][202](E$,I[172]2[171]1,1)[178]A$[167]A[178]I:I[178]13
28 [130]I:[142]
29 [141]66:[139]A$[179][177]"Y"[167]4
30 [153]"NEW FILE NAME":[133]T$:[141]81:[137]4
31 [153]"LOADCWAITATALOG":[153]"CALL PWAITAGE":[153]"IWAITNSERT"R$
32 [153]"EWAITNTER"R$:[153]"KWAITILL"R$:[153]"AWAITLPHABETIZE
33 PRINT"N[146]EW FILE":PRINT"L[146]OAD FROM TAPE OR DISC":PRINT"S[146]AVE TO TAPE OR DISC"
34 PRINT"?[146] DEFINITIONS":PRINT"H[146] LIST TO PRINTER[145]":GOSUB26:IFA=0THEN31
35 GOTO9
36 PRINT"[147][144]SAVE TO TAPE OR DISC":GOSUB66:IFA$<>"Y"THEN4
37 PRINT"D[146]ISC OR T[146]APE?":GOSUB63:IFA$="T"THEN40
38 IFA$<>"D"THEN4
39 OPEN15,8,15,"UI-":CLOSE15:OPEN2,8,2,"@0:"+T$+" [216],S,W":J=2:GOTO89
40 OPEN1,1,1,T$:PRINT#1,T$:J=1:GOTO89
41 PRINT"[147]LOAD FROM TAPE OR DISC":GOSUB66:IFA$<>"Y"THEN4
42 PRINT"D[146]ISC OR T[146]APE?":GOSUB63:IFA$="T"THEN46
43 IFA$<>"D"THEN4
44 GOSUB97:PRINT"FILE NAME?":INPUTN$:IFN$=""THEN4
45 OPEN15,8,15,"UI-":CLOSE15:OPEN2,8,2,"0:"+N$+" [216],S,R":J=2:GOTO93
46 OPEN1,1,0:J=1:GOTO93
47 PRINT"KILL"R$:INPUTA$:J=VAL(A$):GOSUB27:IFA<>0THEN9
48 IFJ<0ORJ>NTHENPRINT"[145][145]":GOTO47
49 FORI=JTON-1:IFS$(I)="[192]"ANDS$(I+1)="[192]"THENI=N-1:GOTO51
50 S$(I)=S$(I+1):GOSUB65
51 NEXT:S$(N)="[192]":GOTO14
52 PRINT"ALPHABETIZE  ";:GOSUB82:U=VAL(A$):IFU<0ORU>NTHENGOTO8
53 IFMID$(S$(U),1,1)=""THENU=U+1
54 GOSUB83:K=0:FORI=UTOKK:IFLEFT$((S$(I)),1)=""THENK=1:NN=I-1:I=KK
55 NEXTI:IFK=1THEN57
56 NN=KK
57 I=0
58 J=U:IFI=NN-UTHEN14
59 IFJ=NN-ITHEN62
60 IFS$(J)>S$(J+1)THENTP$=S$(J):S$(J)=S$(J+1):S$(J+1)=TP$
61 J=J+1:GOTO59
62 I=I+1:POKE36879,INT(RND(K)*8+184):GOTO58
63 GETA$:IFA$=""THEN63
64 RETURN
65 PRINT""TAB(37);I:RETURN
66 PRINT"ARE YOU SURE? Y/N":GOSUB63:RETURN
67 PRINT"[147]HARD COPY":GOSUB66:IFA$<>"Y"THEN4
68 PRINT"ENTIRE FILE?":GOSUB63:IFA$="Y"THENF=0:M=N:GOTO71
69 GOSUB82:F=VAL(A$):IFF<0ORF>NGOTO67
70 PRINT"ENDING"R$:INPUTA$:M=VAL(A$):IFM<0ORM>NORM=<FTHEN67
71 OPEN4,4:A$="":FORI=1TOINT((40-LEN(T$))/2)
72 A$=A$+" ":NEXTI:A$=A$+"[146]":PRINT#4,CHR$(14)A$+T$+F$CHR$(10)CHR$(10)
73 LL=4:FORI=FTOM:IFLEFT$(S$(I),1)=""THEN76
74 IFS$(I)<>"[192]"THENPRINT#4,CHR$(15)"     "S$(I)CHR$(10):LL=LL+2
75 GOTO79
76 A$="":FORKK=7TOLEN(S$(I))*6:A$=A$+CHR$(255):NEXTKK
77 PRINT#4,"     "G$+A$:PRINT#4,F$+"     "+S$(I)+G$
78 PRINT#4,F$+"     "+G$+A$+F$CHR$(10):LL=LL+4
79 IFLL>59THENFORNL=LLTO72:PRINT#4,CHR$(10);:NEXTNL:PRINT#4,"":LL=3
80 NEXTI:CLOSE4:GOTO4
81 FORJ=0TON:S$(J)="[192]":NEXTJ:RETURN
82 PRINT"STARTING"R$:INPUTA$:RETURN
83 FORI=NTO0STEP-1:IFS$(I)<>"[192]"THENKK=I:I=0:GOTO85
84 KK=I
85 NEXTI:RETURN
86 FORI=J+1TON:IFS$(I)="[192]"THENKK=I:I=N:GOTO85
87 KK=I
88 NEXTI:RETURN
89 FORI=NTO0STEP-1:K=I:IFS$(I)<>"[192]"THENI=0
90 NEXTI:K=K+1
91 PRINT#J,T$+" [216]":PRINT#J,K:FORI=0TOK
92 PRINT#J,S$(I):GOSUB65:NEXT:CLOSEJ:GOTO4
93 INPUT#J,N$:IFRIGHT$(N$,2)<>" [216]"THENPRINTN$" NOT FOUND":GOSUB63:CLOSEJ:GOTO4
94 T$=N$:T$=LEFT$(T$,LEN(T$)-2):PRINT"FOUND "T$:INPUT#J,K
95 IFK>NTHENPRINT"WARNING:":PRINT"FILE ORIGINATED FROM  VIC WITH LARGER MEMORY":K=N
96 FORI=0TOK:INPUT#J,S$(I):GOSUB65:NEXT:CLOSEJ:GOTO4
97 PRINT"[147]DISC FILE LISTING? ":GOSUB63:IFA$<>"Y"THENRETURN
98 PRINT"[147]SCANNING DISC"
99 OPEN1,8,0,"$0"
100 GET#1,A$,B$
101 GET#1,A$,B$
102 GET#1,A$,B$
103 C=0
104 IF A$<>""THENC=ASC(A$)
105 IF B$<>""THENC=C+ASC(B$)*256
106 D$=D$+""+MID$(STR$(C),2)+"[146]"
107 GET#1,B$:IFST<>0THENCLOSE1:PRINT:RETURN
108 IF B$<>CHR$(34)THEN107
109 GET#1,B$:IF B$<>CHR$(34)THEND$=D$+B$:GOTO109
110 GET#1,B$:IFB$=CHR$(32)THEN110
111 C$=""
112 C$=C$+B$:GET#1,B$:IFB$<>""THEN112
113 IFRIGHT$(D$,1)="[216]"THENPRINTD$
114 D$="":GOTO101
115 Y=Y-1:FORI=0TOC:C$(I,P%(L))="[192]":NEXTI:FORI=LTOY:P%(I)=P%(I+1):NEXTI:L=L-1:RETURN
116 IFLEFT$(S$(J),1)="_"THENS$(J)=""+RIGHT$(S$(J),LEN(S$(J))-1)
117 GOTO14